;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@SetDairyQuest]
{
#IF
   !StartDailyQuest
#SAY
   You have already recieved todays Daily Quest\ \
   <[ Exit ]/@exit>
#ELSEACT
begin
#IF
#ACT
   movr P0 376
   inc P0 1
   RandSetDailyQuest %P0 %P0
   mov D8 %P0
   goto @SetDairyQuest_Setting_PreSet
   break
end


[@SetDairyQuest_Setting_PreSet]
#ACT
   Set [210] 0
   Set [409] 0
   Formatstr "FLD_TQIDX=%s" %D8
   Mov A8 %A9
   ReadValueSql "TBL_DairyQuestSet" %A8 "FLD_TQCASE,FLD_TQCondition1,FLD_TQCondition1Amount,FLD_TQCondition2,FLD_TQCondition2Amount,FLD_TQCondition3" [@SetDairyQuest_Setting_ReadSet]
#SAY
   Daily Quest Loading...\\

[@SetDairyQuest_Setting_ReadSet()]
#ACT
   Mov D1 %ARG(1)
   Mov A2 %ARG(2)
   Mov D2 %ARG(3)
   Mov A3 %ARG(4)
   Mov D3 %ARG(5)
   Mov A4 %ARG(6)
   Formatstr "FLD_TQIDX=%s" %D8
   Mov A8 %A9
   ReadValueSql "TBL_DairyQuestSet" %A8 "FLD_TQCondition3Amount,FLD_TQFame" [@SetDairyQuest_Setting_ReadSet_Addon]

[@SetDairyQuest_Setting_ReadSet_Addon()]
#ACT
   Mov D4 %ARG(1)
   Mov D5 %ARG(2)
   Set [409] 0
   FormatStr "'%s',%s,'%s'" %USERNAME %D8 "Ready"
   Mov A8 %A9
   FormatStr "FLD_UserName='%s'" %USERNAME
   WriteValueSql "TBL_DairyQuestUser" %A9 "FLD_UserName,FLD_QuestIdx,FLD_Status" %A8
   FormatStr "FLD_Step='%s',FLD_TQCASE=%s,FLD_Condition1='%s'" "NULL" %D1 %A2
   Mov A8 %A9
   FormatStr "FLD_UserName='%s'" %USERNAME
   UpdateValueSql "TBL_DairyQuestUser" %A9 %A8
   FormatStr "FLD_Condition1Amount=%s,FLD_Condition2='%s',FLD_Condition2Amount=%s" %D2 %A3 %D3
   Mov A8 %A9
   FormatStr "FLD_UserName='%s'" %USERNAME
   UpdateValueSql "TBL_DairyQuestUser" %A9 %A8
   FormatStr "FLD_Condition3='%s',FLD_Condition3Amount=%s,FLD_TQFame=%s" %A4 %D4 %D5
   Mov A8 %A9
   FormatStr "FLD_UserName='%s'" %USERNAME
   UpdateValueSql "TBL_DairyQuestUser" %A9 %A8






   goto @Call_SetDairyQuest_Setting

[@Call_SetDairyQuest_Setting]
#IF
   !StartDailyQuest
   Check [409] 0
#ACT
   FormatStr "FLD_USERNAME='%s'" %USERNAME
   ReadValueSql "TBL_DairyQuestUser" %A9 "FLD_QuestIdx,FLD_TQCASE" [@NPCSet_QuestDairyToday_Next]
#SAY
   Daily Quest Loading...\\

[@NPCSet_QuestDairyToday_Next()]
#ACT
   mov D0 %ARG(1)
   mov D1 %ARG(2)
   FormatStr "FLD_TQIDX=%s" %D0
   ReadStringSql "TBL_DairyQuestSet" %A9 "FLD_TQNPCContent1" [@NPCSet_QuestDairyToday_Next1]

[@NPCSet_QuestDairyToday_Next1]
#ACT
   mov A0 %ARG(1)
#SAY
  <$OUTPUT(A0)>\\
  <[ Accept Daily Quest ]/@NPCSet_QuestDairyToday_Next3>\
  <[ Reject Daily Quest ]/@exit>\

[@NPCSet_QuestDairyToday_Next3]
  #IF
    Equal D1 0
  #ACT
    FormatStr "FLD_USERNAME='%s'" %USERNAME
    UpdateValueSql "TBL_DairyQuestUser" %A9 "FLD_Status='Act',FLD_Step='NULL'"
    close
    break
  #IF
    Equal D1 1
  #ACT
    Set [210] 1
    FormatStr "FLD_USERNAME='%s'" %USERNAME
    UpdateValueSql "TBL_DairyQuestUser" %A9 "FLD_Status='Act',FLD_Step='Progress',FLD_STEP1='NULL',FLD_STEP2='NULL',FLD_STEP3='NULL'"
    close
    break
  #IF
    Equal D1 2
  #ACT
    Set [210] 1
    FormatStr "FLD_USERNAME='%s'" %USERNAME
    UpdateValueSql "TBL_DairyQuestUser" %A9 "FLD_Status='Act',FLD_Step='Progress'"
    close
    break
  #IF
    Equal D1 3
  #ACT
    FormatStr "FLD_USERNAME='%s'" %USERNAME
    UpdateValueSql "TBL_DairyQuestUser" %A9 "FLD_Status='Act',FLD_Step='NULL'"
    close
    break
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


